(summarize-tar-header-block): Add mouse-face properties.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 0343c477f6e3a5db8b5fdc77aef5f9f5452a7d99..87e1a656812764385f7b118ea0e0d6a372e25609 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -369,6 +369,8 @@ write-date, checksum, link-type, and link-name."
          (progn
            (tar-dotimes (i 3) (aset string (+ namestart 1 (length name) i) (aref (if (= link-p 1) "==>" "-->") i)))
            (tar-dotimes (i (length link-name)) (aset string (+ namestart 5 (length name) i) (aref link-name i)))))
+      (put-text-property namestart (length string)
+                        'mouse-face 'highlight string)
       string)))